Thanks, but...

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Thanks, but...

Thanks - but is there any way that you could help me to modify this code so that I can get it working?

Thanks for your time!

Sub Click(Source As Button)

'Declare relevant variables
Dim db As NotesDatabase
Dim thisDoc As NotesDocument
Dim emailBodyMsg As Variant
Set emailBodyMsg = thisDoc.GetItemValue("emailBody")(0)
Dim uidoc As NotesUIDocument
Set thisDoc = uidoc.Document
Set uidoc = w.CurrentDocument

' get the relevant db and create a new document in the db
Set db = New NotesDatabase( "", "LocationsSystem.nsf" )
Set thisDoc = New NotesDocument( db )

' set the new document's form so it's readable as a mail memo
thisDoc.Form = "Memo"

' set the new document's subject and body
thisDoc.Subject = "Location System: A Support Request Has Been Logged"
thisDoc.Body = emailBodyMsg

' mail the new document
Call thisDoc.Send( False, "John Smith" )
End Sub

Feedback response number WEBB8M3FCE created by ~Elizabeth Nonfreepulflar on 09/26/2011